/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_07 / fitton / basicprogs / sysfx011

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 64 1b f4 20 3e 20 | 42 61 73 69 63 50 72 6f |..d.. > |BasicPro|
|00000010| 67 73 2e 53 79 73 46 58 | 30 31 31 0d 00 6e 1f f4 |gs.SysFX|011..n..|
|00000020| 20 41 75 74 68 6f 72 20 | 20 20 20 20 20 20 3a 20 | Author |      : |
|00000030| 47 20 4c 20 46 69 74 74 | 6f 6e 0d 00 78 24 f4 20 |G L Fitt|on..x$. |
|00000040| 43 6f 70 79 72 69 67 68 | 74 20 20 20 20 3a 20 41 |Copyrigh|t    : A|
|00000050| 42 41 43 55 53 20 54 52 | 41 49 4e 49 4e 47 0d 00 |BACUS TR|AINING..|
|00000060| 82 24 f4 20 56 65 72 73 | 69 6f 6e 20 30 2e 30 30 |.$. Vers|ion 0.00|
|00000070| 20 3a 20 31 34 74 68 20 | 4d 61 72 63 68 20 31 39 | : 14th |March 19|
|00000080| 38 39 0d 00 83 0b 20 2a | 44 49 52 20 5e 0d 00 8c |89.... *|DIR ^...|
|00000090| 05 3a 0d 00 96 22 f4 20 | 44 65 6d 6f 6e 73 74 72 |.:...". |Demonstr|
|000000a0| 61 74 65 73 20 53 79 73 | 74 65 6d 20 53 70 72 69 |ates Sys|tem Spri|
|000000b0| 74 65 73 2e 0d 00 a0 05 | 3a 0d 00 aa 16 f4 20 50 |tes.....|:..... P|
|000000c0| 72 65 43 6f 72 65 20 53 | 65 63 74 69 6f 6e 2e 0d |reCore S|ection..|
|000000d0| 00 b4 18 f4 20 53 65 74 | 20 75 70 20 65 72 72 6f |.... Set| up erro|
|000000e0| 72 20 74 72 61 70 2e 0d | 00 be 0e ee 20 85 20 f2 |r trap..|.... . .|
|000000f0| 65 72 72 6f 72 0d 00 c8 | 05 3a 0d 00 d2 16 f4 20 |error...|.:..... |
|00000100| 43 68 6f 6f 73 65 20 74 | 68 65 20 6d 6f 64 65 2e |Choose t|he mode.|
|00000110| 0d 00 dc 08 eb 20 31 32 | 0d 00 e6 05 3a 0d 00 f0 |..... 12|....:...|
|00000120| 1f f4 20 44 65 63 6c 61 | 72 65 20 67 6c 6f 62 61 |.. Decla|re globa|
|00000130| 6c 20 76 61 72 69 61 62 | 6c 65 73 2e 0d 00 fa 05 |l variab|les.....|
|00000140| 3a 0d 01 04 05 3a 0d 03 | e8 13 f4 20 43 6f 72 65 |:....:..|... Core|
|00000150| 20 53 65 63 74 69 6f 6e | 2e 0d 03 f2 05 3a 0d 03 | Section|.....:..|
|00000160| fc 09 2a 53 4e 45 57 0d | 04 38 0f f2 6c 6f 61 64 |..*SNEW.|.8..load|
|00000170| 73 70 72 69 74 65 0d 04 | 42 0e f2 70 75 74 73 70 |sprite..|B..putsp|
|00000180| 72 69 74 65 0d 04 4c 05 | e0 0d 04 56 05 3a 0d 04 |rite..L.|...V.:..|
|00000190| 60 05 3a 0d 27 10 0c dd | 20 f2 65 72 72 6f 72 0d |`.:.'...| .error.|
|000001a0| 27 1a 17 f4 20 52 65 70 | 6f 72 74 73 20 61 6e 20 |'... Rep|orts an |
|000001b0| 65 72 72 6f 72 2e 0d 27 | 24 05 3a 0d 27 2e 05 3a |error..'|$.:.'..:|
|000001c0| 0d 27 38 05 3a 0d 27 42 | 05 f6 0d 27 4c 13 f1 20 |.'8.:.'B|...'L.. |
|000001d0| 22 20 61 74 20 6c 69 6e | 65 20 22 3b 9e 0d 27 56 |" at lin|e ";..'V|
|000001e0| 05 e0 0d 27 60 05 3a 0d | 27 6a 05 3a 0d 27 74 10 |...'`.:.|'j.:.'t.|
|000001f0| dd 20 f2 64 72 61 77 67 | 6c 6f 62 65 0d 27 7e 2b |. .drawg|lobe.'~+|
|00000200| f4 20 44 72 61 77 73 20 | 61 20 67 6c 6f 62 65 20 |. Draws |a globe |
|00000210| 74 6f 20 62 65 20 75 73 | 65 64 20 61 73 20 61 20 |to be us|ed as a |
|00000220| 73 70 72 69 74 65 2e 0d | 27 88 34 ea 20 6c 65 66 |sprite..|'.4. lef|
|00000230| 74 25 2c 62 6f 74 74 6f | 6d 25 2c 78 63 25 2c 79 |t%,botto|m%,xc%,y|
|00000240| 63 25 2c 73 69 7a 65 25 | 2c 72 61 64 25 2c 61 6e |c%,size%|,rad%,an|
|00000250| 67 6c 65 31 2c 61 6e 67 | 6c 65 32 0d 27 92 05 3a |gle1,ang|le2.'..:|
|00000260| 0d 27 9c 1b f4 20 49 6e | 69 74 69 61 6c 69 73 65 |.'... In|itialise|
|00000270| 20 76 61 72 69 61 62 6c | 65 73 2e 0d 27 a6 11 73 | variabl|es..'..s|
|00000280| 69 7a 65 25 20 20 20 3d | 20 35 31 32 0d 27 b0 1d |ize%   =| 512.'..|
|00000290| 6c 65 66 74 25 20 20 20 | 3d 20 36 34 30 20 20 20 |left%   |= 640   |
|000002a0| 20 2d 73 69 7a 65 25 2f | 32 0d 27 ba 1d 62 6f 74 | -size%/|2.'..bot|
|000002b0| 74 6f 6d 25 20 3d 20 35 | 31 32 20 20 20 20 2d 73 |tom% = 5|12    -s|
|000002c0| 69 7a 65 25 2f 32 0d 27 | c4 1d 78 63 25 20 20 20 |ize%/2.'|..xc%   |
|000002d0| 20 20 3d 20 6c 65 66 74 | 25 20 20 2b 73 69 7a 65 |  = left|%  +size|
|000002e0| 25 2f 32 0d 27 ce 1d 79 | 63 25 20 20 20 20 20 3d |%/2.'..y|c%     =|
|000002f0| 20 62 6f 74 74 6f 6d 25 | 2b 73 69 7a 65 25 2f 32 | bottom%|+size%/2|
|00000300| 0d 27 d8 15 72 61 64 25 | 20 20 20 20 3d 20 73 69 |.'..rad%|    = si|
|00000310| 7a 65 25 2f 34 0d 27 e2 | 13 61 6e 67 6c 65 31 20 |ze%/4.'.|.angle1 |
|00000320| 20 3d 20 33 2a af 2f 38 | 0d 27 ec 18 61 6e 67 6c | = 3*./8|.'..angl|
|00000330| 65 32 20 20 3d 20 61 6e | 67 6c 65 31 2d af 2f 32 |e2  = an|gle1-./2|
|00000340| 0d 27 f6 05 3a 0d 28 00 | 16 f4 20 44 72 61 77 20 |.'..:.(.|.. Draw |
|00000350| 67 6c 6f 62 65 20 61 78 | 69 73 2e 0d 28 0a 07 e6 |globe ax|is..(...|
|00000360| 20 37 0d 28 14 29 c8 9d | 20 c8 90 20 78 63 25 2c | 7.(.)..| .. xc%,|
|00000370| 79 63 25 2c 73 69 7a 65 | 25 2f 32 2c 73 69 7a 65 |yc%,size|%/2,size|
|00000380| 25 2f 36 34 2c 61 6e 67 | 6c 65 31 0d 28 1e 05 3a |%/64,ang|le1.(..:|
|00000390| 0d 28 28 1d f4 20 44 72 | 61 77 20 67 6c 6f 62 65 |.((.. Dr|aw globe|
|000003a0| 20 62 6f 74 74 6f 6d 20 | 68 61 6c 66 2e 0d 28 32 | bottom |half..(2|
|000003b0| 07 e6 20 34 0d 28 3c 0d | ec 20 78 63 25 2c 79 63 |.. 4.(<.|. xc%,yc|
|000003c0| 25 0d 28 46 2f ec 20 20 | 20 20 20 78 63 25 2d 72 |%.(F/.  |   xc%-r|
|000003d0| 61 64 25 2a 9b 28 61 6e | 67 6c 65 32 29 2c 79 63 |ad%*.(an|gle2),yc|
|000003e0| 25 2d 72 61 64 25 2a b5 | 28 61 6e 67 6c 65 32 29 |%-rad%*.|(angle2)|
|000003f0| 0d 28 50 2f f0 20 26 42 | 35 2c 78 63 25 2b 72 61 |.(P/. &B|5,xc%+ra|
|00000400| 64 25 2a 9b 28 61 6e 67 | 6c 65 32 29 2c 79 63 25 |d%*.(ang|le2),yc%|
|00000410| 2b 72 61 64 25 2a b5 28 | 61 6e 67 6c 65 32 29 0d |+rad%*.(|angle2).|
|00000420| 28 5a 05 3a 0d 28 64 1b | f4 20 44 72 61 77 20 73 |(Z.:.(d.|. Draw s|
|00000430| 61 74 65 6c 6c 69 74 65 | 20 6f 72 62 69 74 2e 0d |atellite| orbit..|
|00000440| 28 6e 07 e6 20 36 0d 28 | 78 25 c8 9d 20 78 63 25 |(n.. 6.(|x%.. xc%|
|00000450| 2c 79 63 25 2c 73 69 7a | 65 25 2f 38 2c 73 69 7a |,yc%,siz|e%/8,siz|
|00000460| 65 25 2f 32 2c 61 6e 67 | 6c 65 31 0d 28 82 05 3a |e%/2,ang|le1.(..:|
|00000470| 0d 28 8c 1a f4 20 44 72 | 61 77 20 67 6c 6f 62 65 |.(... Dr|aw globe|
|00000480| 20 74 6f 70 20 68 61 6c | 66 2e 0d 28 96 07 e6 20 | top hal|f..(... |
|00000490| 34 0d 28 a0 0d ec 20 78 | 63 25 2c 79 63 25 0d 28 |4.(... x|c%,yc%.(|
|000004a0| aa 2f ec 20 20 20 20 20 | 78 63 25 2b 72 61 64 25 |./.     |xc%+rad%|
|000004b0| 2a 9b 28 61 6e 67 6c 65 | 32 29 2c 79 63 25 2b 72 |*.(angle|2),yc%+r|
|000004c0| 61 64 25 2a b5 28 61 6e | 67 6c 65 32 29 0d 28 b4 |ad%*.(an|gle2).(.|
|000004d0| 2f f0 20 26 42 35 2c 78 | 63 25 2d 72 61 64 25 2a |/. &B5,x|c%-rad%*|
|000004e0| 9b 28 61 6e 67 6c 65 32 | 29 2c 79 63 25 2d 72 61 |.(angle2|),yc%-ra|
|000004f0| 64 25 2a b5 28 61 6e 67 | 6c 65 32 29 0d 28 be 05 |d%*.(ang|le2).(..|
|00000500| 3a 0d 28 c8 05 3a 0d 28 | d2 05 3a 0d 28 dc 05 3a |:.(..:.(|..:.(..:|
|00000510| 0d 28 e6 05 3a 0d 28 f0 | 05 e1 0d 28 fa 05 3a 0d |.(..:.(.|...(..:.|
|00000520| 29 04 10 dd 20 f2 67 65 | 74 73 70 72 69 74 65 0d |)... .ge|tsprite.|
|00000530| 29 0e 28 f4 20 50 69 63 | 6b 20 20 75 70 20 61 20 |).(. Pic|k  up a |
|00000540| 73 70 72 69 74 65 20 66 | 72 6f 6d 20 74 68 65 20 |sprite f|rom the |
|00000550| 73 63 72 65 65 6e 2e 0d | 29 18 28 f4 20 53 61 76 |screen..|).(. Sav|
|00000560| 65 20 69 74 20 69 6e 20 | 74 68 65 20 73 79 73 74 |e it in |the syst|
|00000570| 65 6d 20 73 70 72 69 74 | 65 20 61 72 65 61 2e 0d |em sprit|e area..|
|00000580| 29 22 25 ea 20 6c 65 66 | 74 25 2c 62 6f 74 74 6f |)"%. lef|t%,botto|
|00000590| 6d 25 2c 73 69 7a 65 25 | 2c 72 69 67 68 74 25 2c |m%,size%|,right%,|
|000005a0| 74 6f 70 25 0d 29 2c 05 | 3a 0d 29 36 1b f4 20 49 |top%.),.|:.)6.. I|
|000005b0| 6e 69 74 69 61 6c 69 73 | 65 20 76 61 72 69 61 62 |nitialis|e variab|
|000005c0| 6c 65 73 2e 0d 29 40 11 | 73 69 7a 65 25 20 20 20 |les..)@.|size%   |
|000005d0| 3d 20 35 31 32 0d 29 4a | 1d 6c 65 66 74 25 20 20 |= 512.)J|.left%  |
|000005e0| 20 3d 20 36 34 30 20 20 | 20 20 2d 73 69 7a 65 25 | = 640  |  -size%|
|000005f0| 2f 32 0d 29 54 1d 62 6f | 74 74 6f 6d 25 20 3d 20 |/2.)T.bo|ttom% = |
|00000600| 35 31 32 20 20 20 20 2d | 73 69 7a 65 25 2f 32 0d |512    -|size%/2.|
|00000610| 29 5e 1d 72 69 67 68 74 | 25 20 20 3d 20 6c 65 66 |)^.right|%  = lef|
|00000620| 74 25 20 20 2b 73 69 7a | 65 25 2d 31 0d 29 68 1d |t%  +siz|e%-1.)h.|
|00000630| 74 6f 70 25 20 20 20 20 | 3d 20 62 6f 74 74 6f 6d |top%    |= bottom|
|00000640| 25 2b 73 69 7a 65 25 2d | 31 0d 29 72 05 3a 0d 29 |%+size%-|1.)r.:.)|
|00000650| 7c 14 ec 20 6c 65 66 74 | 25 20 2c 62 6f 74 74 6f ||.. left|% ,botto|
|00000660| 6d 25 0d 29 86 11 ec 20 | 72 69 67 68 74 25 2c 74 |m%.)... |right%,t|
|00000670| 6f 70 25 0d 29 90 05 3a | 0d 29 9a 05 3a 0d 29 a4 |op%.)..:|.)..:.).|
|00000680| 0f 2a 53 47 45 54 20 67 | 6c 6f 62 65 0d 29 ae 05 |.*SGET g|lobe.)..|
|00000690| 3a 0d 29 b8 05 e1 0d 29 | c2 05 3a 0d 29 cc 11 dd |:.)....)|..:.)...|
|000006a0| 20 f2 73 61 76 65 73 70 | 72 69 74 65 0d 29 d6 24 | .savesp|rite.).$|
|000006b0| f4 20 53 61 76 65 73 20 | 74 68 65 20 73 70 72 69 |. Saves |the spri|
|000006c0| 74 65 20 61 72 65 61 20 | 74 6f 20 64 69 73 63 2e |te area |to disc.|
|000006d0| 0d 29 e0 05 3a 0d 29 ea | 1f 2a 53 53 41 56 45 20 |.)..:.).|.*SSAVE |
|000006e0| 4d 79 53 70 72 69 74 65 | 73 2e 53 70 72 69 74 65 |MySprite|s.Sprite|
|000006f0| 46 69 6c 65 0d 29 f4 05 | 3a 0d 29 fe 05 3a 0d 2a |File.)..|:.)..:.*|
|00000700| 08 05 3a 0d 2a 12 05 3a | 0d 2a 1c 05 e1 0d 2a 26 |..:.*..:|.*....*&|
|00000710| 05 3a 0d 2a 30 11 dd 20 | f2 6c 6f 61 64 73 70 72 |.:.*0.. |.loadspr|
|00000720| 69 74 65 0d 2a 3a 24 f4 | 20 4c 6f 61 64 73 20 61 |ite.*:$.| Loads a|
|00000730| 20 73 70 72 69 74 65 20 | 66 69 6c 65 20 66 72 6f | sprite |file fro|
|00000740| 6d 20 64 69 73 63 2e 0d | 2a 44 05 3a 0d 2a 4e 1f |m disc..|*D.:.*N.|
|00000750| 2a 53 4c 4f 41 44 20 4d | 79 53 70 72 69 74 65 73 |*SLOAD M|ySprites|
|00000760| 2e 53 70 72 69 74 65 46 | 69 6c 65 0d 2a 58 05 3a |.SpriteF|ile.*X.:|
|00000770| 0d 2a 62 05 3a 0d 2a 6c | 05 3a 0d 2a 76 05 3a 0d |.*b.:.*l|.:.*v.:.|
|00000780| 2a 80 05 e1 0d 2a 8a 05 | 3a 0d 2a 94 10 dd 20 f2 |*....*..|:.*... .|
|00000790| 70 75 74 73 70 72 69 74 | 65 0d 2a 9e 22 f4 20 50 |putsprit|e.*.". P|
|000007a0| 6c 6f 74 73 20 61 20 73 | 70 72 69 74 65 20 74 6f |lots a s|prite to|
|000007b0| 20 74 68 65 20 73 63 72 | 65 65 6e 0d 2a a8 23 f4 | the scr|een.*.#.|
|000007c0| 20 20 66 72 6f 6d 20 74 | 68 65 20 73 79 73 74 65 |  from t|he syste|
|000007d0| 6d 20 73 70 72 69 74 65 | 20 61 72 65 61 2e 0d 2a |m sprite| area..*|
|000007e0| b2 1a ea 20 6c 65 66 74 | 25 2c 62 6f 74 74 6f 6d |... left|%,bottom|
|000007f0| 25 2c 78 73 74 65 70 25 | 0d 2a bc 05 3a 0d 2a c6 |%,xstep%|.*..:.*.|
|00000800| 1b f4 20 49 6e 69 74 69 | 61 6c 69 73 65 20 76 61 |.. Initi|alise va|
|00000810| 72 69 61 62 6c 65 73 2e | 0d 2a d0 11 6c 65 66 74 |riables.|.*..left|
|00000820| 25 20 20 20 3d 20 31 32 | 38 0d 2a da 11 62 6f 74 |%   = 12|8.*..bot|
|00000830| 74 6f 6d 25 20 3d 20 31 | 32 38 0d 2a e4 11 78 73 |tom% = 1|28.*..xs|
|00000840| 74 65 70 25 20 20 3d 20 | 33 38 34 0d 2a ee 11 79 |tep%  = |384.*..y|
|00000850| 73 74 65 70 25 20 20 3d | 20 33 38 34 0d 2a f8 05 |step%  =| 384.*..|
|00000860| 3a 0d 2b 02 18 f4 20 43 | 68 6f 6f 73 65 20 74 68 |:.+... C|hoose th|
|00000870| 65 20 73 70 72 69 74 65 | 2e 0d 2b 0c 12 2a 53 43 |e sprite|..+..*SC|
|00000880| 48 4f 4f 53 45 20 67 6c | 6f 62 65 0d 2b 16 05 3a |HOOSE gl|obe.+..:|
|00000890| 0d 2b 20 11 f4 20 55 73 | 65 20 61 20 6d 61 73 6b |.+ .. Us|e a mask|
|000008a0| 2e 0d 2b 2a 09 e6 20 38 | 2c 30 0d 2b 34 05 3a 0d |..+*.. 8|,0.+4.:.|
|000008b0| 2b 3e 21 f4 20 50 6c 6f | 74 20 74 68 65 20 73 70 |+>!. Plo|t the sp|
|000008c0| 72 69 74 65 20 66 6f 75 | 72 20 74 69 6d 65 73 2e |rite fou|r times.|
|000008d0| 0d 2b 48 1e f0 20 26 45 | 44 2c 6c 65 66 74 25 20 |.+H.. &E|D,left% |
|000008e0| 20 20 20 20 20 20 2c 62 | 6f 74 74 6f 6d 25 0d 2b |      ,b|ottom%.+|
|000008f0| 52 1e f0 20 26 45 44 2c | 6c 65 66 74 25 2b 78 73 |R.. &ED,|left%+xs|
|00000900| 74 65 70 25 2c 62 6f 74 | 74 6f 6d 25 0d 2b 5c 25 |tep%,bot|tom%.+\%|
|00000910| f0 20 26 45 44 2c 6c 65 | 66 74 25 2b 78 73 74 65 |. &ED,le|ft%+xste|
|00000920| 70 25 2c 62 6f 74 74 6f | 6d 25 2b 79 73 74 65 70 |p%,botto|m%+ystep|
|00000930| 25 0d 2b 66 25 f0 20 26 | 45 44 2c 6c 65 66 74 25 |%.+f%. &|ED,left%|
|00000940| 20 20 20 20 20 20 20 2c | 62 6f 74 74 6f 6d 25 2b |       ,|bottom%+|
|00000950| 79 73 74 65 70 25 0d 2b | 70 05 3a 0d 2b 7a 05 3a |ystep%.+|p.:.+z.:|
|00000960| 0d 2b 84 05 3a 0d 2b 8e | 05 3a 0d 2b 98 05 e1 0d |.+..:.+.|.:.+....|
|00000970| 2b a2 05 3a 0d 2b ac 05 | 3a 0d 2b b6 05 3a 0d ff |+..:.+..|:.+..:..|
+--------+-------------------------+-------------------------+--------+--------+